10 C = 55: HOME : INPUT "SIDES,WIDTH,SPEED,D)IAMOND OR P)YRAMID: ";D,E,P,A$: POKE 230,32: CALL -3086: POKE 230,64: CALL -3086: HCOLOR= 3:F = 140:G = 110:A = 6.28318531:B = A/(361 -P): CALL -3100: IF LEFT$(A$,1) = "P" THEN C = -55
20 FOR H = 1 TO 2: POKE 49238 -H,0: POKE -16302,0: POKE 230,32 *H: CALL -3086:J = J +B:K = F +E * COS(L +J):M = G -E *1/8 * SIN(L +J): HPLOT K,M: FOR L = 0 TO A +B STEP A/D:N = E * COS(L +J):O = E *1/8 * SIN(L +J): HPLOT TO F +N,G -O: HPLOT F,G -55 TO F +N,G -O: HPLOT F,G +C TO F +N,G -O: NEXT L,H: GOTO 20
